In jarad/IowaSalaries: Data concerning salaries of Iowa State Employees

The purpose of this document is to evaluate gender pay equality at Iowa State University.

library("dplyr")
library("ilog")

ISU_Salaries <- IowaSalaries::IowaSalaries %>%
  filter(Department == "Iowa State University",
         grepl("prof",tolower(Position))) %>%
  mutate(log_salary = ilog(july_salary),
         Sex = factor(Sex, levels = c("M","F")))

m <- lm(log_salary ~ Sex + Position, 
        data = ISU_Salaries %>% filter(log_salary>10.5))
opar = par(mfrow=c(2,3)); plot(m, 1:6, ask=FALSE); par(opar)

summary(m)
exp(confint(m)[2,])

jarad/IowaSalaries documentation built on May 18, 2019, 2:40 p.m.